home *** CD-ROM | disk | FTP | other *** search
/ Mesolore / Mesolore - Disc 2.iso / mac / data / Nuttall.dir / 00017_Script_Nav(scroll) Codex Right < prev    next >
Text File  |  2001-01-30  |  375b  |  17 lines
  1. on mouseDown
  2.   global cdxScroll
  3.   --- GenLeaveCdx
  4.   
  5.   set cdxScroll = TRUE
  6.   set ctr = 1
  7.   set sprNum = the clickOn
  8.   set cNum = integer(char 2 of the frameLabel)
  9.   repeat while (the mouseDown and the type of sprite sprNum <> 0) or ctr = 1
  10.     goto (the frame - 1)
  11.     set ctr = ctr+1
  12.   end repeat
  13.   setTextRow
  14.   set cdxScroll = FALSE
  15.   ---GenEnterCdx
  16.   
  17. end